home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
comm
/
cnet
/
cnettoolkit2a.lha
/
Routines
/
EDATE
< prev
next >
Wrap
Text File
|
1994-12-13
|
160b
|
3 lines
EDATE: procedure;arg da,mo;if mo='I' then da=date('s',da,'i')
return left(date('w',da,'s'),3)right(' 'strip(translate(date('n',da,'s'),'-',' '),'L','0'),12)